<%
class cls_aspcms
	public db,fso,json,theme,cache,[error],o_ext,o_plug,lang
	private s_charset,s_codepage
	private s_runmode,s_path,s_adminpath
	public s_fsoname,s_dictname,s_steamname,s_debug
	


	
	private sub class_initialize()
		s_runmode="0"
		s_path="/"
		s_codepage=65001
		s_charset="utf-8"
		s_adminpath="/admin_aspcms/"
		s_fsoname	= "scripting.filesystemobject"
		s_dictname	= "scripting.dictionary"
		s_steamname	= "adodb.stream"
		s_debug=false
		
       init()
	end sub
	
	public sub init()
		set o_ext= server.createobject(s_dictname)
		set fso=new cls_fso
		set json=new cls_json
		set theme=new cls_theme
		set lang=new cls_lang
		loadconfig
		lang.init
	end sub
	
	public sub loadconfig()
	
	
	
	end sub
	public property get softname()
		softname = "aspcms3"
	end property
	public property get version()
		version = "v3.0.0 build 20141124"
	end property
	public property get regid()
		regid = "3.00.141124.00"
	end property
	
	public property let runmode(byval s)
		s_runmode=pub.iif(s,"1","0")
	end property
	public property get runmode()
		runmode=s_runmode
	end property
	
	public property let debug(byval s)
		s_debug=pub.iif(s,true,false)
	end property
	public property get debug()
		debug=s_debug
	end property
	
	public property let path(byval s)
		s_path=pub.xpath(s)
	end property
	public property get path()
		path=s_path
	end property
	
	public property let steamName(byval s)
		s_steamName=s
	end property
	public property get steamName()
		steamName=s_steamName
	end property
	
	public property let FsoName(byval s)
		s_FsoName=s
	end property
	public property get FsoName()
		steamName=s_FsoName
	end property
	
	
	public property let charset(byval s)
		s_charset=pub.iif(lcase(s)="gb2312","gb2312","utf-8")
		s_codepage=pub.iif(lcase(s)="gb2312",936,65001)
	end property
	public property get charset()
		charset=s_charset
	end property

	public property get codepage()
		codepage=s_codepage
	end property

end class
%>
<!--#include file="aspcms_pub.asp"-->
<!--#include file="aspcms_fso.asp"-->
<!--#include file="aspcms_theme.asp"-->
<!--#include file="aspcms_lang.asp"-->
<!--#include file="aspcms_json.asp"-->

<script language="vbscript" runat="server">If TypeName(ac) = "cls_aspcms" Then Set ac = Nothing</script>